1 IFJ=0THENCLS:SCREEN,0,0:CLEAR,,2:DEFGR$(0)=28,30,24,24,24,24,24,24:DEFGR$(1)=126,255,255,126,36,36,36,36:A$=GR$(0)+CHR$(8)+CHR$(10)+GR$(1):B$=" "+CHR$(8)+CHR$(10)+" ":J=1:N=10:GOTO1ELSEFORI=1TON:A=RND*36:PSET(A,17)"o",1:NEXT:BOXF(0,144)-(320,200),4
2 FORI=1TO10:A=RND*32+5:PSET(A,16)CHR$(124),7:PSET(A,17)CHR$(124),7:NEXT:COLOR3:FORI=0TO36:S=STRIG(0):Y=15+S-NOT(S):LOCATEI,Y:IFSCREEN(I,Y)=124THENENDELSEE=E-(SCREEN(I,Y+1)=111)*2:PRINTA$;:LOCATE0,0,0:PRINTE:PLAY"P":LOCATE1,Y:PRINTB$;:NEXT:CLS:N=N+2:GOTO1